home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Exchange
/
CD Exchange - Volume 1.iso
/
education
/
airfoil
/
airfoil.asm
< prev
next >
Wrap
Assembly Source File
|
1989-09-24
|
13KB
|
931 lines
;:ts=8
dseg
ds 0
public _mask
_mask:
dc.l $0000
cseg
global _IntuitionBase,4
global _GfxBase,4
global _message,4
global _vp,4
global _rp,4
global _s,4
global _w,4
global _AirRequest,112
global _trp,8
global _area,24
global _buffer,1250
dseg
ds 0
public _camber
_camber:
dc.l $0004
cseg
dseg
ds 0
public _thickness
_thickness:
dc.l $0006
cseg
dseg
ds 0
public _angle
_angle:
dc.l $0000
cseg
dseg
ds 0
public _velocity
_velocity:
dc.l $0008
cseg
global _a,4
global _b,4
global _c,4
global _t,4
global _r,4
global _alpha,4
global _PEN,4
global _FILL,4
dseg
ds 0
public _Continue
_Continue:
dc.l $0001
cseg
dseg
ds 0
public _mode
_mode:
dc.l $0001
cseg
dseg
ds 0
public _title
_title:
dc.l $0000
cseg
global _ixo,4
global _iyo,4
dseg
ds 0
public _about
_about:
dc.l .1+0
dc.l .1+65
dc.l .1+67
dc.l .1+105
dc.l .1+140
dc.l .1+172
dc.l .1+174
dc.l .1+244
dc.l .1+317
dc.l .1+390
dc.l .1+461
dc.l .1+491
dc.l .1+493
dc.l .1+548
dc.l .1+603
dc.l .1+605
dc.l .1+667
dc.l .1+735
dc.l .1+803
dc.l .1+879
dc.l .1+945
dc.l .1+1014
dc.l .1+1079
dc.l .1+1148
cseg
.1
dc.b 32,32,32,32,32,32,32,32,65,105,114,102,111,105,108
dc.b 32,71,101,110,101,114,97,116,111,114,32,85,116,105,108
dc.b 105,122,105,110,103,32,116,104,101,32,74,111,117,107,111
dc.b 119,115,107,105,32,84,114,97,110,115,102,111,114,109,97
dc.b 116,105,111,110,0,32,0,32,32,32,32,32,32,32,32
dc.b 87,114,105,116,116,101,110,32,98,121,58,32,32,82,117
dc.b 115,115,101,108,108,32,76,101,105,103,104,116,111,110,0
dc.b 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
dc.b 32,32,32,32,32,32,76,97,110,99,97,115,116,101,114
dc.b 44,32,67,65,0,32,32,32,32,32,32,32,32,32,32
dc.b 32,32,32,32,32,32,32,32,32,32,32,77,97,114,99
dc.b 104,32,49,57,56,55,0,32,0,32,32,32,32,32,32
dc.b 32,32,84,111,32,117,115,101,32,116,104,105,115,32,112
dc.b 114,111,103,114,97,109,32,98,114,105,110,103,32,117,112
dc.b 32,116,104,101,32,114,101,113,117,101,115,116,101,114,32
dc.b 98,121,32,100,111,117,98,108,101,32,99,108,105,99,107
dc.b 105,110,103,0,32,32,32,32,32,32,32,32,116,104,101
dc.b 32,114,105,103,104,116,32,109,111,117,115,101,32,98,117
dc.b 116,116,111,110,32,40,116,104,101,32,109,101,110,117,32
dc.b 98,117,116,116,111,110,41,46,32,32,84,104,105,115,32
dc.b 114,101,113,117,101,115,116,101,114,32,99,97,110,32,98
dc.b 101,0,32,32,32,32,32,32,32,32,98,114,111,117,103
dc.b 104,116,32,117,112,32,97,116,32,97,110,121,32,116,105
dc.b 109,101,32,40,101,118,101,110,32,100,117,114,105,110,103
dc.b 32,112,108,111,116,116,105,110,103,41,32,98,121,32,100
dc.b 111,117,98,108,101,32,99,108,105,99,107,105,110,103,0
dc.b 32,32,32,32,32,32,32,32,116,104,101,32,114,105,103
dc.b 104,116,32,109,111,117,115,101,32,98,117,116,116,111,110
dc.b 46,32,32,84,104,101,32,114,101,113,117,101,115,116,101
dc.b 114,32,103,97,100,103,101,116,115,32,97,114,101,32,108
dc.b 111,99,97,116,101,100,32,97,110,100,0,32,32,32,32
dc.b 32,32,32,32,100,101,115,99,114,105,98,101,100,32,97
dc.b 115,32,102,111,108,108,111,119,115,46,0,32,0,32,32
dc.b 32,32,32,32,32,32,71,97,100,103,101,116,32,32,32
dc.b 32,32,76,111,99,97,116,105,111,110,32,32,32,32,32
dc.b 32,32,32,32,32,32,32,32,32,32,32,68,101,115,99
dc.b 114,105,112,116,105,111,110,0,32,32,32,32,32,32,32
dc.b 32,45,45,45,45,45,45,32,32,32,32,32,45,45,45
dc.b 45,45,45,45,45,32,32,32,32,32,32,32,32,32,32
dc.b 32,32,32,32,32,32,45,45,45,45,45,45,45,45,45
dc.b 45,45,0,32,0,32,32,32,32,32,32,32,32,81,117
dc.b 105,116,32,32,32,32,32,32,32,85,112,112,101,114,32
dc.b 108,101,102,116,32,99,111,114,110,101,114,32,32,32,32
dc.b 32,32,32,69,120,105,116,115,32,102,114,111,109,32,112
dc.b 114,111,103,114,97,109,0,32,32,32,32,32,32,32,32
dc.b 67,108,111,115,101,32,32,32,32,32,32,85,112,112,101
dc.b 114,32,114,105,103,104,116,32,99,111,114,110,101,114,32
dc.b 32,32,32,32,32,83,116,97,114,116,115,32,111,114,32
dc.b 99,111,110,116,105,110,117,101,115,32,112,108,111,116,0
dc.b 32,32,32,32,32,32,32,32,83,104,111,119,84,105,116
dc.b 108,101,32,32,85,112,112,101,114,32,99,101,110,116,101
dc.b 114,32,32,32,32,32,32,32,32,32,32,32,32,84,111
dc.b 103,103,108,101,115,32,115,99,114,101,101,110,32,116,105
dc.b 116,108,101,32,98,97,114,0,32,32,32,32,32,32,32
dc.b 32,65,105,114,102,111,105,108,32,32,32,32,66,101,108
dc.b 111,119,32,83,104,111,119,84,105,116,108,101,32,103,97
dc.b 100,103,101,116,32,32,84,111,103,103,108,101,115,32,115
dc.b 116,114,101,97,109,108,105,110,101,47,112,114,101,115,115
dc.b 117,114,101,32,112,108,111,116,0,32,32,32,32,32,32
dc.b 32,32,67,97,109,98,101,114,32,32,32,32,32,66,101
dc.b 108,111,119,32,65,105,114,102,111,105,108,32,103,97,100
dc.b 103,101,116,32,32,32,32,77,105,100,45,99,104,111,114
dc.b 100,32,99,97,109,98,101,114,32,101,110,116,114,121,0
dc.b 32,32,32,32,32,32,32,32,84,104,105,99,107,110,101
dc.b 115,115,32,32,66,101,108,111,119,32,67,97,109,98,101
dc.b 114,32,103,97,100,103,101,116,32,32,32,32,32,77,105
dc.b 100,45,99,104,111,114,100,32,116,104,105,99,107,110,101
dc.b 115,115,32,101,110,116,114,121,0,32,32,32,32,32,32
dc.b 32,32,65,110,103,108,101,32,32,32,32,32,32,66,101
dc.b 108,111,119,32,84,104,105,99,107,110,101,115,115,32,103
dc.b 97,100,103,101,116,32,32,65,110,103,108,101,32,111,102
dc.b 32,97,116,116,97,99,107,32,101,110,116,114,121,0,32
dc.b 32,32,32,32,32,32,32,86,101,108,111,99,105,116,121
dc.b 32,32,32,66,111,116,116,111,109,32,101,100,103,101,32
dc.b 32,32,32,32,32,32,32,32,32,32,32,32,83,108,105
dc.b 100,101,114,32,102,111,114,32,118,101,108,111,99,105,116
dc.b 121,32,101,110,116,114,121,0,32,0
ds 0
dseg
ds 0
public _colors
_colors:
dc.w 70
dc.w 0
dc.w 3072
dc.w 3168
dc.w 3216
dc.w 3264
dc.w 192
dc.w 199
dc.w 204
dc.w 156
dc.w 108
dc.w 12
dc.w 9
dc.w 6
dc.w 0
dc.w 3276
cseg
dseg
ds 0
public _closeimage
_closeimage:
dc.w 16383
dc.w -1024
dc.w 12288
dc.w 3072
dc.w 13311
dc.w -13312
dc.w 13311
dc.w -13312
dc.w 13251
dc.w -13312
dc.w 13251
dc.w -13312
dc.w 13311
dc.w -13312
dc.w 13311
dc.w -13312
dc.w 12288
dc.w 3072
dc.w 16383
dc.w -1024
cseg
dseg
ds 0
public _streamimage
_streamimage:
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -16
dc.w 15
dc.w -1024
dc.w -31
dc.w 63
dc.w -4
dc.w 1023
dc.w -2
dc.w 32767
dc.w -2
dc.w 0
dc.w -4
dc.w 0
dc.w 0
dc.w -2
dc.w 3
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 255
dc.w -8
dc.w -16
dc.w 15
dc.w -1009
dc.w -15
dc.w 1023
dc.w 30
dc.w -64
dc.w 3
dc.w -1024
dc.w 1
dc.w -32768
dc.w 1
dc.w -1
dc.w 3
dc.w -1
dc.w -1
dc.w 1
dc.w -4
dc.w -2
dc.w 3
dc.w -1
dc.w -1
dc.w 0
dc.w 510
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -1
dc.w -1
dc.w -256
dc.w 7
dc.w 255
dc.w -8
dc.w -16
dc.w 15
dc.w -1024
dc.w 1
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -2
dc.w 3
dc.w -1
dc.w -1
dc.w 0
dc.w 510
dc.w -1
dc.w -511
dc.w -1
dc.w -1
dc.w 0
dc.w 0
dc.w 0
dc.w 0
cseg
dseg
ds 0
public _pressureimage
_pressureimage:
dc.w 0
dc.w -128
dc.w 7
dc.w 96
dc.w 56
dc.w 16
dc.w 192
dc.w 8
dc.w 256
dc.w 4
dc.w 512
dc.w 2
dc.w 1024
dc.w 2
dc.w 2048
dc.w 1
dc.w 4096
dc.w -31
dc.w 8255
dc.w -3
dc.w 17407
dc.w -2
dc.w 32767
dc.w -2
dc.w 16384
dc.w -3
dc.w 8192
dc.w 1
dc.w 4096
dc.w 2
dc.w 3072
dc.w 4
dc.w 896
dc.w 8
dc.w 112
dc.w 48
dc.w 15
dc.w 192
dc.w 0
dc.w -256
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -128
dc.w 7
dc.w -32
dc.w 63
dc.w -16
dc.w 255
dc.w -8
dc.w 511
dc.w -4
dc.w 1023
dc.w -4
dc.w 2047
dc.w -2
dc.w 4095
dc.w 30
dc.w 8128
dc.w 2
dc.w 15360
dc.w 0
dc.w 0
dc.w 0
dc.w 16383
dc.w 2
dc.w 8191
dc.w -2
dc.w 4095
dc.w -4
dc.w 1023
dc.w -8
dc.w 127
dc.w -16
dc.w 15
dc.w -64
dc.w 0
dc.w -256
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
cseg